IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



In re Patent Application of 

HARRINGTON et al, Atiy. Ref.: RWF-3594-1 4 

Serial No. 10/613,319 TC/A.U.; 3694 

Filed: 07 July 2003 Examiner: Swartz, Jamie H. 

For: PROCESS AND APPARATUS FOR CONDUCTING AUCTIONS OVER 
ELECTRONIC NETWORKS 

*********** 

Commissioner for Patents 

P.O. Box 1450 

Alexandria, VA 22313-1450 

Sir: 

RULE 131 DECLARATION 

We, Tvlyles Harrington, Daniel Veres and Robert Fanoff, state the following based 
on our own personal knowledge and belief: 

1. We are named as inventors on the patent application Identified above. 

2. We understand that in a 10/31/2007 Office Action, the Patent Office rejected 
certain claims as allegedly being "unpatentable" in view of U,S, Patent 5,905,975. We 
further understand that US Patent No. 5,905,975 was filed on January 2, 1997. 

3. We conceived of the subject matter disclosed and claimed in our patent 
application before January 2, 1997. 

4. We attach, as the Exhibit to this declaration, certain documentation that 
corroborates our conception of the claimed subject matter before January 2, 1997, 

5. The attached documentation was created before January 2, 1997, although 
we have intentionally obscured the date for purposes of filing in the public record. 
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6. We were diligent in working toward a commercial implementation of the 
claimed subject matter from before January 2, 1997 through May 29, 1997 when we 
filed our provisional patent application. 

7. We declare further that all statements made herein of our own knowledge are 
true and that all statements made on Information and belief are believed to be true; and 
further that these statements were made with the knowledge that willful false statements 
and the like so made are punishable by fine or imprisonment, or both, under Section 
1001 of Title 18 of the United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issuing thereon. 




Date: Daniel Veres 



Date: Robert Panoff 
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6. We were diligent in working toward a commercial implementation of the 
claimed subject matter from before January 2, 1997 through May 29, 1997 when we 
filed our provisional patent application. 

7, We declare further that all statements made herein of our own knowledge are 
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Date; 
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Date: 
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6. We were diligent in working toward a commercial implementation of the 
claimed subject matter from before January 2, 1997 through May 29, 1997 when we 
filed our provisional patent application. 

7. We declar© further that all statements made herein of our own knowledge are 
true and that all statements made on information and belief are believed to be true; and 
further that these statements were made with the knowledge that willful false statements 
and the like so made are punishable by fine or imprisonment, or both, under Section 
1001 of Title 18 of the United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issuing thereon. 

Date; Myles HARRINGTON 




2~ 



I2&1SS5 



HARRINGTON et al. 
Serial No. 10/613,319 



EXHIBIT 



From: ppaiioff@storm.shodor.org (Robert M. Panoff) 
To: boba@shodop.org 

Subject: More changes. .. .makes it easier 
Bobobob, 

spoke with Myles today for quit a while. Hs straightened me out on some details and also 
made some changes. 

a) the price, which is bid is in fact bid as a percent, not an amount, X already made the 
various changes to bond.pl to reflect this, No guarantee I made the correct changes, of 
course! 

b) ultimately he would like an "auctioneer" or host page that would look at the bondrate.txt 
file and compute a total true interest cost for the whole auction, not just year by year, 
That's pretty simple. 

I think., , 

c) we should add some flag or icon or other indication that tells someone they are the 
leadlriR bidder at the current time for whatever bids they are submitting, 1 suggest a 7th 
column in the table that either has or doesn't have some gif image, or has a separate image 
for winning vs. lagging, 

d) We should enable people to read in their current bids, if they are returning to the 
auction after leaving. 

e) we definitely need to put in a while test that seas if the file is locked, 

f) we also need to look at the error logs and understand what is going on: 

UX:rm: ERROR i /var/www/htdocs/grantstreet/bondrates .txt not removed: Permission denied. 
Are you zapping some fite or something? ■ 

He was not able to look at it himself since he does not have the access to the internet from 
where he called. Maybe tomorrow, he said, when he is back in the office. He did sound 
enthused over the speed with which this has come together and the description of what is now 
- functional. 

Good worki Let me know which, if any, of these things you might have some time for, 
• Bob 



# ! /usr/bin/perl 

# bond.pl 

# Bob O'Neill m 



$server_,name~ 11 storm. shodor.org" ; 

£cget_request; 

&html_header ("PROPOSAL TO PURCHASE" ) ; 

# get variables from input 
$corporation>=$rqpairs { 1 corporation. 1 3 ; 
$id*=$rcjpairs{ 'id' ) ; 

$price[0]~$rqpairs{ 'priceO' } ; 
$interest[0]«=$rqpairs{ ' interestQ' ) ; 
$price[l)=$rqpairs{ ■pricel" }; 
Sinterest [ 1] =$rqpairs{ ' interestl < } ; 
$price[2)=$rqpairs{ 'price2' ) ; 
$interest [2] =$rqpairs ( 1 interest2 1 } ; 
$price[3}=$rcfpairs{ 'priae3 ' ) ; 
$interest[3]=$rqpairs{ ' interest3 ' } ; 
$price[4J=$rqpairs{ l price4' ) ; 
Sinterest 14 ] =$rqpairs { 1 interests 1 } ; 
$price[5 } =$rqpairs { 'prices ' } ; 
$interest 15] =$rgpairs{ 1 interests ' } ? 
Spricetfij^rgpairsC 'price6 1 } ; 
$dnterest [ 6] =$r<ipairs { 1 interests' } ; 
$price[7]=$rqpairs{ 'price? 1 }; 
$interest [7] =$rqpairs{ ' interest7 ' } ; 
$price[8]*$rqpairs{ 'price8' } ; 
$ interest [8] =$rqpaire{ ' interest8 ' 3 ; 
$price 19] =$rqpairs{ 'prices * } ; 
$interest [9 }=$rc2paire(' interests' } ; 
$calculate=$rqpairs (. ■ calculate ! } ; 
$begin=$rqpairs { 'begin' } ; 

# check for a valid ID 

open (ID, "/var/www/htdocs/grantstreet/bondid. txt" ) [) die "Couldn't 
open bondid.txt\n" ; 
$i=0; 
$count=3 ; 
$valid="no" ; 
while {$i < $count) { 
$who=<ID>; 
if ($who =~ $id} { 

$corporation=aubstr ($who, 8, 100) r 

chop ($corporat ion) ; 

$valid="yes" j 

) 

$i++; 

} 

close (ID) 

if ($valid eq "no" ) { 
print "Sorry, Invalid ID\n"; 
&html_trailer; 
exit ; 
) 



for ($i=0; $i < 10; $i+*> { 

if { ($ interest [$i] $price[$i|) |j {$price{$i) eq "" && 

$interest [$!]}) { 

print "Sorry, blank stuff, \n"; 

fchtmljcrailer; 

exit; 

} 

) 

# obtain principals from a datafile 

open j PRINCIPAL, Vvar/www/htdocs/grantstreet/bondprincipal . txt" } ]| die 
" Couldn 1 t open bondpr incipal . txt\n " ; 

# read in number of years bonds will be offered 

$numyears-<PRIWCIPAL> ; 

for {$i=0; $i < $numyears; $i++) { 
$date PRINCIPAL^- 
^principal [$i] =<PRINCIPAL>; 

) 

# read in offsets from bond offering and bond sale 

$of f set^PRINCIPAL^- 
SdayfactsxPRINCIPAJ^; 

close {PRINCIPAL) ; 

for ($i=0; $1 < 10; $i++) { 
if ($price[$i] eq "") { 

$priee[$i 3=999999999999; 

$ interest [$i] =999999999999 ; 

} 



if [$price[0] < 97.5 |j Spricetll < 97,5 || $price[2] < 97.5 jj 
$price[3) < 97,5 || $price[4] < 97.5 ]| $price[5] < 97.5 || $price{6,') < 
97,5 |j $prioe(7] < 97.5 || $price[8] < 97,5 j| $price[9] < 97.5) { 

print "Sorry. At least one of your bids was less than 97.5% of the 
corresponding principal . \n" ; 

print "<p>Use your BACK button to return to the bid submission 
page.\n s ? 

&html„trailer; 

exit ; 

} 

$ compute total of bond principals 
$ total= 0; 

for ($i=0; $i < 10; $i + + ) { 
$total = $total+$principal ,- 
) 

$total~&coiranas ($total) ; 



# unless we're just beginning, 



unless {$begin ne ""> { 

# compute yield 

ff 63 days from end of year until first payment 
$of fset=S3j 

# 76 days from bond offering until first payment, accrued interest 

$dayfact-76; 

for ($i=0; $i < 10; $i++) { 

if ($interest[$i] < 999} { 

$discounts=$price{$i] /100; 
$interest [$i] =$interest f$i] /100; 
$year=$i+l; 
$nsteps=2* ($year+l) ; 

# compute first line in table, 

$pvf=.05; 

$sads[l]-0, ; 

$ time fact or 11] =$offset; 

$proceeds ( 1 ] ~~ $ discount ; 

$pv£actor [1] =1 , ; 

# precompute second line, since this has accrued interest calculation 



$sads \2 ) s ($interest [$i] 12 } *$dayf act/180 . ; 
$tiiriefactor{21=$of£sefc/180. ; 
$pv£actor[2]=(l*$pvf /2) ** ( -$timef actor [2 ] 5 ; 
$proceeds [2 ] «$sads[2) i 

$pvproceeda [2] =$pvf actor [2 ] *$proceeds [2] ; 
# ok, so now do initialization of functions 
$sumproc=0 . ; 

for ($istep=3; $istep < $nsteps+l; $istep4+) ( 
$sads {$istep] =$interest [$i } 12 ; 
$timef actor | $istep}=>$fclmef actor [$istep-l}+l . ; 
$proceeda [$istepl =$sads [$istep] ; 

$pv£actort$istepJ»<l+$pvf /2}**(-$timel:actor[$istep] ) ; 
$pvproceedst$ist«ap] =$pvfactor [$istep] *$proceeds{$lstepJ ; 
$sumproc=$sumproc+$pvproceeds [$ istep] ; 

) 

ff don't forget you have to pay back the principal sometime 

$proceeds [$nsteps] =$proceeds [ $nsteps) +1; 
$sumproc=$ sumproc+$pvf actor [$nsteps] ; 



# iterate pvf, jump out when less than a penny error 



while ( ($proceeds[l] +$sumproc) < -.000001) { 
# DEBUG 

tfprint " proceeds 1 3. S : $proceeds |1] \n" j 
(/print "sumproc; $sumproc\n"; 

$pvf-$pv£*$sumproo/ {-$procaeds [1] } ; 

$sumproc=0 . ; 
for ($jt=2; $j < $nsteps + l; $j++) { 

$pvfactor[$j)=<l+$pvf /2) ** (-$timef actor [$j } ) ; 

$pvproceeds [$ j } =$pvf actor [$ j ] *$proceeds [$j ] ; 

$sumproc=$sumproc+$pvproGa©ds t$ j I ; 

) 

} 

$yield[§i]«100*$pvf ; 

} 

} 

for ($i=0; $i < 10; $i++) C 
if ($interest[$i) < 999) { 

$ interest interest [$i}*100 ; 

} 

} . 

# read in the best yield 

open (BEST, " /var/www/htdocs/grantstreet/bestrates . txt" ) || die 
"Couldn ' t 

open bestrates , txt\n" ; 
for ($1=0; $i < 10; $i + + ) { 
chop($idwin[$i)=<BEST>) ; 
chop($pricev7in[$i]=<BEST>) ; 
chop ($interestwin[$i3=<BEOT>) ? 
chop ($bestyisld($i]=<BEST>) ; 

} 

close (BEST) ; 

i\ skip comparison if calculate is set 
if (i$calculate) ( 

# see if the yield rates are the lowest 
for ($i=0; $i < 10; $i++) { 

if ($interest[$i] < 999) ( 

if ($yield($i] < $bestyield[$i] ) { 
$bestyield[$i3«$yiel.d[$il ; 
$idwln[$i)=$id; 
$pricewin [$i j -$price [$i] ; 
$interest.win [$i] =$interest [$il ; 
) 

) 

) 

) 

#DEBUG 



frdon't think we need this anymore 
fffor (§1=0; $i < 10; { 

# $yield[$i] = substr($yield[$n , 0, 5} ; 

# Sb6atyieldE$i] = substr (Sbestyield [$i] , 0, 5} ; 
#) 

ft see if bestrates.txt is in use 

ft $ teirip= "LOCKED" ; 

ftwhile ($temp eq "LOCKED 11 ) { 

ftopen (RATELOCK, " /var/www/htdocs/grantgtreet/bestratsslock . txt" } |] 
die 

•Couldn't open bestrateslook. txt\n" ; #chop (Stemp=<RATELOCK> ) ; 

# C 1 o s e ( RATELOCK } ; 
#} 

# write out the new best rates 

open {BEST, *>/var/www/htdocs/grantsfcreet/bestrates . txt " } || die 
"Couldn' t 

open bestrates.txt the second time\n" ? for {$i=0; $i<10; $i+i) { 
printf BEST "%,3£\n", $idwin[$i}; 
printf BEST "%.3£\n", Spricewin ; 
printf BEST n,3f\n\ $interestwin E$i] ; 
printf: BEST "%.3f\n\ $bestyield[$i ] 

) 

close (BEST) ; 

if unlock bestrates.txt 

#open (RATELOCK , ">/var/www/htdocs/grantstreet/bestrateslock. txt" ) |i 
die 

"Couldn't open bestrateslock.txt the second time.\n"; 
ftpririt RATELOCK " UNLOCKED \n " ; 
# close (RATELOCK) ; 

# put commas in bond principals 
for ($i=0; $i<10; $i* + > { 
$principal [$i] ™&commas ($principal [$i] ) ; 
} 

# see if bondbids.txt is in use 
ft $ fcmp =» " LOCK ED " ; 

ftwhile (Strap eq "LOCKED") { 

ffopen {BIDLOCK, "/var/www/htdocs/grantstreet/bondbidlock.txt") || die 

"Couldn't open bondbidlock, txt\n" ; 

Schop($temp=<BIDLOCK>) ; 

ffclose (BIDLOCK) ; 

#} 

M if not, look it 

#open {BIDLOCK, ">/var/www/htdocs/grant;street/bODdbidlock.txt" ) || die 
"Couldn't open bondbidlock- txt the second time,\n"j 
sprint BIDLOCK a LOCKED\n" ; 
ftalose {BIDLOCK} ; 

# write out the bids? to a file 

open (BIDS, ">>/var/www/htdocs/grantstreet /bondbids.txt" ) || die 
"Couldn't open bondbids . txt\n" ; 



for {$i=0; $i<10; $i++J ( 

$yield[$i] = substr($yield{$i], 0, 5) 

} 



for ($i = 0 i $i«10; $i++) { 

if [$interestE$i] > 9999B) ( 
$price[$i]="NO BID" ; 
$intereatf$i]="iTO BID" ; 
$yieldt$i]--="NO BID" ; 
} 

) 

# for <$i=0; $i<X0; $i++) { 

4f$bestyieldf$il - substr ($bestyield[$i] , 0, 5) ; 
#} 

unless ($interest[0] eq "NO BID" kk $interest[l) eq "NO BID" kk 
$intarest[2] eq "NO BID" kk $interest[3] eq "NO BID" kk $lnterest[4] eq 
«NO BID" kk $±ntereefc(5J eq "NO BID " kk $infcerest (6) eq "NO BID" 
$interest[7} eg "NO BID" kk $interest[8J eq "NO BID" kk $interest[9) eq 
"NO BID" ) { 

print BIDS "$id ( $corporation) ; \n B ; 

for {$i=0; $i<lf); $i++) { 
if ($price[$i) a~ /NO/) { 

print BIDS "$price[$i] \t ^interest \t $yield[$i] \n" ; 
} 

else { 

printf BIDS »%.'if.\t", $price($i]; 
printf BIDS "%.3f\t", $intereat [ $i } ; 
printf BIDS "%.3f\n", $yield[$i3; 
) 

) 

print BIDS "\n"; 
) 

close (BIDS) ; 

# now change NO BIDS back to blank 
for ($i»0; $i<10; $i++) £ 

if ($interest[$i] — /NO BID/) { 
$price[$i}=" "; 
$ interest [$i]~" " ; 
$yield[$i)s» " ; 
} 

) 

tt write out last-submitted values 
' if ( !$calculate) { 

open (LAST, ">/var/www/htdocs/grantstreet/$id, txt B } |j die 
"Couldn't open 

$id.txt\n"; 

for ($i=0; $i < 3.0; $i++) { 

printf DAST °%,3f\n", $price[$i]; 
printf LAST "%.3f\n", $interest [$i 5 ; 
printf LAST "%,3f\n", $yield{$i]; 

) 



} 

> # end of "unless we're just beginning" 
else { # if ws ARE just beginning 

# read in the best yield 

open (BEST, " /var/www/htdocs/grantstreet/bestrates , fcxt " 1 jj die 
"Couldn't 

open bestrates , fcxt\n" ; 

for {$i=G; $i < 10; $1++) ( 

chop($idwint$i1=<BEST>i j 

chop($pricewin($i) =<BEST>! ; 

chop{$interestwin[$i] =<BEST>} ; 

chop($bestyield[$i]=<BEST>) ; 

) 

close (BEST) ; 

# read in last-submitted values for $id 

open {LAST, " /var/www/htdocs/grantstreet/$id, Cxt" ) |[ die "Couldn't 
open 

$id.txt\n"; 

for ($1=0; $i < 10; { 
chop ( $price | $ i ] =<tiAST> ) ; 
chop($interest|$i}=<bAST>) ; 
chop ($yi eld ==<i*AST>) ; 

} 

for ($i=0; $i < 10; $!+•(-} { 

$principal [$i ] ^Etconraas ( $principal ) ; 

} 



# print out the new form 
print «EOI; 

<center>\$$tQtal<sup>*</sup><br> 
City of Pittsburgh, Pennsylvania<br> 

General Obligation Refunding Bonds, Series A of 1996<brx/center> 
<form method= B POS r r" 

action- "http : //storm. shodor ,org/cgi-bin/grantstreet/bond ,pl M > 

< input type="hidden" name= B corporation" valuers corporation'^ 
<input type- "hidden 11 name= u id" value* h $id"> 

<table border=0 cellspacing-5 cellpadding=5> 

<tr><th>Due<br> March l<th>Principal<br->AKiount<sup>*<;/sup><th> Price 

<th>Interest<br>Rate<th>Yield<th>Best Yield 

EOI 



for ($i=0; $i<10; $i++) { 

print <<B0E; 
<tr> 

<td align=center>$date[$i] </td> 

<td align=canter>\$$principal[$i] </td> 

<td align=cexiter>< input name«"price$i " value=" 

SOI 



printf {'%.3f $price[$i] ) if ($price[$i) !=""); 



print «EOI) 

" size=? rnax.lerigth=ll>\%</td> 

<td align=centerxinput rmme= " interest$i" valuer" 

sot 

print f ('%.3f -^interest ) if (^interest ! = '■■'); 

print «EOI; 

" slze=5 maxlength=5>\%</td> 

<td align=center> 

HOI 

print f ' ("%.3£%" ,$yiald[$i] } if ($yieldt$il ! = BI, )< 

print «EOI; 

<td align=center> 

eoi 

printf <»%.3£%" i $besfcyield[$i] ) ; 
print «EOI; 

</ta> 

<td align~ceriter> 
HOI 

if <$idwin[$i] eq Sid) { 
print "you win\n"; 

} 

else ( 

print "you lose\n»; 

) 

print «EOI; 

</td> 

</tr> 

EOI 

} # end of for (0<=:i<10) 

print «EOI; 

</table> 

Name of firm submitting Proposal: <b>$corporation</bxbr> 

<input type=submit name=" calculate" value=" Calculate / Refresh"> 

<input type=submit valuer "Submit Bicls"xbr> 

<sup>*</sup>Prel:Lminary 1 subject to change 

<pxhr> 

EOI 

ff unlock bondbids.txt 

#system( "rm /var/www/htdocs/grantstreet/bondbidlock. txt' 1 } ; 
ffopeti (BIDLOCK, " >/var/www/htdocs/grantatreet/bondbidlock , txt" } 
"Couldn't open bondbidlock.txt the third time\n n j 
Itprint BIDLOCK UNLOCK ED \ ri ' ; 
tfclose SBIDLOCK) ; 

tf system ( "chmod a+w /var /www/htdocs/grantstreet/bondbidlock , txt" ) 



&html_trailer; 



exit; 

sub round { 

local ( $numbar) = ®__J 

$ roundednumber = 1 000 *$mwober ; 

$f raction=$roundednumber-tnt ($roundednumber) ; 
if ($£raction > = 0,5) ( 
$roundednumber++ ; 

} 

$ r oundednumbe r / = 1 0 0 0 ; 

$roundednumbejr=substr($roundednumber,0, 5) ; 
return ?rowtdednumber; 



sub commas { 
local 
1 while 

s/(.*\d) (\d\d\d)/$l,$2/ ; 



sub get_reguest £ 



if ($BNV{ ' REQUEST_METHOD ' ) eq "POST" } { 

read ( STDIN , $reques t , $BNV{ ' CONTENT_LENGTH 1 } ) ; 

} 

else 
( 

print "Location; http : //$server_name/grantstreet/\n\n" 
exit: 

} 

%rqpairs ~ &url_decode (split {/[&=]/ , $request)); 

) 

sub url_decode { 

# Decode a URL encoded string or array of strings 

# + ~> space 

# %xx -> character xx 

foreaeh (@_) { 
tr/+/ /; 

s/% { , . } /pack ! "c" ,hex($l} } /ge; 

3 



sub btml„header { 

# Subroutine. htmljrieader sends to Standard Output the necessary 

# material to form an HTML header for the document to be 

# returned, the single argument is the TITLE field, 



local ($title) = <§_, 



print "HTTP/1 -0 200 OK\n" ; 

print "MIME-Version; l,0\n"; 

print " Server : Web STAR /1 , 2 . 5\n" ; 

print "Content-type: text /html \n\n " ; 

print " <htmlxhead>\n" ; 

print "<title>$title</title>\n" ; 

print "</head><body bgcolor=\"#£f f £f f \">\n" ; 

print 11 «center><hi>$tit.ia</hl></center>\n H j 



sub html„tr&iler { 

print "<pxa hret=\ "http; / /storm, shodor , org/grantstreet\ "ximg 
border=0 al:Lgn=center" ; 

print " alt=\"\" src=\ ".,/.. /grantstreet/gsabutton . gif\ ">" ; 

print " Grant Street Advisors</a>\n" ; 

print " <hr>\n" ; 

print "<address>Please direct questions and comments to 

print "<a href = \ 11 mail to ; webmas ter\@shodor , org\ " > 11 ; 

print *webmasfcer\@ shodor ,org</a>cbr>\n" ; 

print "Copyright Scopy HHSl Grant Street Advisors"; 

print i '</acidress>\n" ; 

print ,l </body></html>\n" ; 

} 



